Imports System.Data.SqlClient
Imports System.ComponentModel

Public Class cls_config_empresa

    Implements ICloneable

#Region "Variables ..."
    Private str_razonsocial As String = ""
    Private str_nombrefantasia As String = ""
    Private str_domicilio As String = ""
    Private int_idprovincia As Integer = 0
    Private int_idpais As Integer = 0
    Private str_telefono As String = ""
    Private str_fax As String = ""
    Private str_celular As String = ""
    Private str_logogrande As String = ""
    Private str_logochico As String = ""
    Private str_horario As String = ""
    Private str_email As String = ""
    Private str_web As String = ""

    Private str_fiscal_razonsocial As String = ""
    Private int_fiscal_idcondicioniva As Integer = 0
    Private int_fiscal_idsiglafiscal As Integer = 0
    Private str_fiscal_numerofiscal As String = ""
    Private int_fiscal_impresiontipo As enu_impresiontipo = 0
    Private str_fiscal_impresorafiscal_modelo As String = ""
    Private str_fiscal_impresorafiscal_puerto As String = ""
    Private int_fiscal_impresorafiscal_velocidad As Integer = 0

    Public Enum enu_impresiontipo
        <Description("Manual")> manual = 0
        <Description("Facturas pre-Impresas")> preimpreso = 1
        <Description("Impresora Fiscal")> impresorafiscal = 2
    End Enum

    Public Enum enu_fiscalmodelo
        <Description("Epson	TM2000AF - TM2000AF+")> if0 = 0
        <Description("Epson	TM2002AF, TM2002AF+")> if1 = 1
        <Description("Epson	TMU-220AF, TMU-220AFII")> if2 = 2
        <Description("Epson	TMU950")> if3 = 3
        <Description("Epson	TM300AF")> if4 = 4
        <Description("Epson	TM T285F")> if5 = 5
        <Description("Epson	LX300, LX300F+")> if6 = 6
        <Description("Epson	FX880F")> if7 = 7
        <Description("Hasar	PJ-20F")> if8 = 8
        <Description("Hasar	SMH/P-320F")> if9 = 9
        <Description("Hasar	SMH/P-321F")> if10 = 10
        <Description("Hasar	SMH/P-322F,330F, 1120F")> if11 = 11
        <Description("Hasar	PL-8F, PL-23F")> if12 = 12
        <Description("Hasar	PL-1200F")> if13 = 13
        <Description("Hasar	SMH/P-615F")> if14 = 14
        <Description("Hasar	SMH/P-715F, SMH/P-441F")> if15 = 15
        <Description("Hasar	SMH/P-PR4F y PR5F")> if16 = 16
        <Description("Hasar	SMH/P-930F")> if17 = 17
        <Description("Hasar	SMH/P-951F")> if18 = 18
        <Description("NCR	NCR 2008")> if19 = 19
        <Description("NCR	NCR 3140")> if20 = 20
        <Description("NCR	NCR 3140")> if21 = 21
        <Description("NCR	NCR 3140")> if22 = 22
    End Enum

    Public Enum enu_fiscalmodelovalor
        <Description("TM2000")> if0 = 0
        <Description("TM2000")> if1 = 1
        <Description("TM2000")> if2 = 2
        <Description("TM2000")> if3 = 3
        <Description("TM2000")> if4 = 4
        <Description("TM2000")> if5 = 5
        <Description("LX300")> if6 = 6
        <Description("FX880")> if7 = 7
        <Description("HJ20")> if8 = 8
        <Description("H320")> if9 = 9
        <Description("H321")> if10 = 10
        <Description("H322")> if11 = 11
        <Description("HPL8")> if12 = 12
        <Description("HPL1200")> if13 = 13
        <Description("H615")> if14 = 14
        <Description("H715")> if15 = 15
        <Description("HPR4")> if16 = 16
        <Description("H930")> if17 = 17
        <Description("H951")> if18 = 18
        <Description("NCR2008")> if19 = 19
        <Description("H715 ( En modo compatibilidad Hasar 715)")> if20 = 20
        <Description("H615 ( En modo compatibilidad Hasar 615)")> if21 = 21
        <Description("TM2000 ( En modo compatibilidad Epson)")> if22 = 22
    End Enum

    Private col_Items As Collections.Generic.List(Of cls_config_empresa) = Nothing
#End Region

#Region "Propiedades ..."
    Property razonsocial() As String
        Get
            razonsocial = str_razonsocial
        End Get
        Set(ByVal value As String)
            str_razonsocial = value
        End Set
    End Property
    Property nombrefantasia() As String
        Get
            nombrefantasia = str_nombrefantasia
        End Get
        Set(ByVal value As String)
            str_nombrefantasia = value
        End Set
    End Property
    Property domicilio() As String
        Get
            domicilio = str_domicilio
        End Get
        Set(ByVal value As String)
            str_domicilio = value
        End Set
    End Property
    Property idprovincia() As Integer
        Get
            idprovincia = int_idprovincia
        End Get
        Set(ByVal value As Integer)
            int_idprovincia = value
        End Set
    End Property
    Property idpais() As Integer
        Get
            idpais = int_idpais
        End Get
        Set(ByVal value As Integer)
            int_idpais = value
        End Set
    End Property
    Property telefono() As String
        Get
            telefono = str_telefono
        End Get
        Set(ByVal value As String)
            str_telefono = value
        End Set
    End Property
    Property fax() As String
        Get
            fax = str_fax
        End Get
        Set(ByVal value As String)
            str_fax = value
        End Set
    End Property
    Property celular() As String
        Get
            celular = str_celular
        End Get
        Set(ByVal value As String)
            str_celular = value
        End Set
    End Property
    Property logogrande() As String
        Get
            logogrande = str_logogrande
        End Get
        Set(ByVal value As String)
            str_logogrande = value
        End Set
    End Property
    Property logochico() As String
        Get
            logochico = str_logochico
        End Get
        Set(ByVal value As String)
            str_logochico = value
        End Set
    End Property
    Property horario() As String
        Get
            horario = str_horario
        End Get
        Set(ByVal value As String)
            str_horario = value
        End Set
    End Property
    Property email() As String
        Get
            email = str_email
        End Get
        Set(ByVal value As String)
            str_email = value
        End Set
    End Property
    Property web() As String
        Get
            web = str_web
        End Get
        Set(ByVal value As String)
            str_web = value
        End Set
    End Property
    Property fiscal_razonsocial As String
        Get
            fiscal_razonsocial = str_fiscal_razonsocial
        End Get
        Set(ByVal value As String)
            str_fiscal_razonsocial = value
        End Set
    End Property
    Property fiscal_idcondicioniva As Integer
        Get
            fiscal_idcondicioniva = int_fiscal_idcondicioniva
        End Get
        Set(ByVal value As Integer)
            int_fiscal_idcondicioniva = value
        End Set
    End Property
    Property fiscal_idsiglafiscal As Integer
        Get
            fiscal_idsiglafiscal = int_fiscal_idsiglafiscal
        End Get
        Set(ByVal value As Integer)
            int_fiscal_idsiglafiscal = value
        End Set
    End Property
    Property fiscal_numerofiscal As String
        Get
            fiscal_numerofiscal = str_fiscal_numerofiscal
        End Get
        Set(ByVal value As String)
            str_fiscal_numerofiscal = value
        End Set
    End Property
    Property fiscal_impresiontipo As enu_impresiontipo
        Get
            fiscal_impresiontipo = int_fiscal_impresiontipo
        End Get
        Set(ByVal value As enu_impresiontipo)
            int_fiscal_impresiontipo = value
        End Set
    End Property
    Property fiscal_impresorafiscal_modelo As String
        Get
            fiscal_impresorafiscal_modelo = str_fiscal_impresorafiscal_modelo
        End Get
        Set(ByVal value As String)
            str_fiscal_impresorafiscal_modelo = value
        End Set
    End Property
    Property fiscal_impresorafiscal_puerto As String
        Get
            fiscal_impresorafiscal_puerto = str_fiscal_impresorafiscal_puerto
        End Get
        Set(ByVal value As String)
            str_fiscal_impresorafiscal_puerto = value
        End Set
    End Property
    Property fiscal_impresorafiscal_velocidad As Integer
        Get
            fiscal_impresorafiscal_velocidad = int_fiscal_impresorafiscal_velocidad
        End Get
        Set(ByVal value As Integer)
            int_fiscal_impresorafiscal_velocidad = value
        End Set
    End Property
    Property Items() As Collections.Generic.List(Of cls_config_empresa)
        Get
            Items = col_Items
        End Get
        Set(ByVal value As Collections.Generic.List(Of cls_config_empresa))
            col_Items = value
        End Set
    End Property
#End Region

    Private Sub CargarColeccion(ByVal obj_Reader As SqlDataReader)
        col_Items = New Collections.Generic.List(Of cls_config_empresa)
        While obj_Reader.Read()
            Dim Elemento As New cls_config_empresa
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("razonsocial"))) = False Then
                Elemento.str_razonsocial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("razonsocial")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("nombrefantasia"))) = False Then
                Elemento.str_nombrefantasia = (obj_Reader.GetValue(obj_Reader.GetOrdinal("nombrefantasia")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("domicilio"))) = False Then
                Elemento.str_domicilio = (obj_Reader.GetValue(obj_Reader.GetOrdinal("domicilio")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idprovincia"))) = False Then
                Elemento.int_idprovincia = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idprovincia")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpais"))) = False Then
                Elemento.int_idpais = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpais")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("telefono"))) = False Then
                Elemento.str_telefono = (obj_Reader.GetValue(obj_Reader.GetOrdinal("telefono")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fax"))) = False Then
                Elemento.str_fax = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fax")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("celular"))) = False Then
                Elemento.str_celular = (obj_Reader.GetValue(obj_Reader.GetOrdinal("celular")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("logogrande"))) = False Then
                Elemento.str_logogrande = (obj_Reader.GetValue(obj_Reader.GetOrdinal("logogrande")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("logochico"))) = False Then
                Elemento.str_logochico = (obj_Reader.GetValue(obj_Reader.GetOrdinal("logochico")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("horario"))) = False Then
                Elemento.str_horario = (obj_Reader.GetValue(obj_Reader.GetOrdinal("horario")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("email"))) = False Then
                Elemento.str_email = (obj_Reader.GetValue(obj_Reader.GetOrdinal("email")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("web"))) = False Then
                Elemento.str_web = (obj_Reader.GetValue(obj_Reader.GetOrdinal("web")))
            End If

            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_razonsocial"))) = False Then
                Elemento.str_fiscal_razonsocial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_razonsocial")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idcondicioniva"))) = False Then
                Elemento.int_fiscal_idcondicioniva = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idcondicioniva")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idsiglafiscal"))) = False Then
                Elemento.int_fiscal_idsiglafiscal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idsiglafiscal")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_numerofiscal"))) = False Then
                Elemento.str_fiscal_numerofiscal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_numerofiscal")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresiontipo"))) = False Then
                Elemento.int_fiscal_impresiontipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresiontipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_modelo"))) = False Then
                Elemento.str_fiscal_impresorafiscal_modelo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_modelo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_puerto"))) = False Then
                Elemento.str_fiscal_impresorafiscal_modelo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_puerto")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_velocidad"))) = False Then
                Elemento.str_web = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_velocidad")))
            End If

            col_Items.Add(Elemento)
        End While
    End Sub

    Private Sub CargarVariables(ByVal obj_Reader As SqlDataReader)
        obj_Reader.Read()
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("razonsocial"))) = False Then
            str_razonsocial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("razonsocial")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("nombrefantasia"))) = False Then
            str_nombrefantasia = (obj_Reader.GetValue(obj_Reader.GetOrdinal("nombrefantasia")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("domicilio"))) = False Then
            str_domicilio = (obj_Reader.GetValue(obj_Reader.GetOrdinal("domicilio")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idprovincia"))) = False Then
            int_idprovincia = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idprovincia")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpais"))) = False Then
            int_idpais = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpais")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("telefono"))) = False Then
            str_telefono = (obj_Reader.GetValue(obj_Reader.GetOrdinal("telefono")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fax"))) = False Then
            str_fax = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fax")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("celular"))) = False Then
            str_celular = (obj_Reader.GetValue(obj_Reader.GetOrdinal("celular")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("logogrande"))) = False Then
            str_logogrande = (obj_Reader.GetValue(obj_Reader.GetOrdinal("logogrande")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("logochico"))) = False Then
            str_logochico = (obj_Reader.GetValue(obj_Reader.GetOrdinal("logochico")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("horario"))) = False Then
            str_horario = (obj_Reader.GetValue(obj_Reader.GetOrdinal("horario")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("email"))) = False Then
            str_email = (obj_Reader.GetValue(obj_Reader.GetOrdinal("email")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("web"))) = False Then
            str_web = (obj_Reader.GetValue(obj_Reader.GetOrdinal("web")))
        End If

        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_razonsocial"))) = False Then
            str_fiscal_razonsocial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_razonsocial")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idcondicioniva"))) = False Then
            int_fiscal_idcondicioniva = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idcondicioniva")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idsiglafiscal"))) = False Then
            int_fiscal_idsiglafiscal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_idsiglafiscal")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_numerofiscal"))) = False Then
            str_fiscal_numerofiscal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_numerofiscal")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresiontipo"))) = False Then
            int_fiscal_impresiontipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresiontipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_modelo"))) = False Then
            str_fiscal_impresorafiscal_modelo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_modelo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_puerto"))) = False Then
            str_fiscal_impresorafiscal_modelo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_puerto")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_velocidad"))) = False Then
            str_web = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fiscal_impresorafiscal_velocidad")))
        End If
    End Sub

    Public Sub Modificar()
        Dim obj_Conexion As New cls_Conexion
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "config_empresa_Modificar"
                .Parameters.Add("@razonsocial", SqlDbType.NVarChar).Value = str_razonsocial
                .Parameters.Add("@nombrefantasia", SqlDbType.NVarChar).Value = str_nombrefantasia
                .Parameters.Add("@domicilio", SqlDbType.NVarChar).Value = str_domicilio
                .Parameters.Add("@idprovincia", SqlDbType.Int).Value = int_idprovincia
                .Parameters.Add("@idpais", SqlDbType.Int).Value = int_idpais
                .Parameters.Add("@telefono", SqlDbType.NVarChar).Value = str_telefono
                .Parameters.Add("@fax", SqlDbType.NVarChar).Value = str_fax
                .Parameters.Add("@celular", SqlDbType.NVarChar).Value = str_celular
                .Parameters.Add("@logogrande", SqlDbType.NVarChar).Value = str_logogrande
                .Parameters.Add("@logochico", SqlDbType.NVarChar).Value = str_logochico
                .Parameters.Add("@horario", SqlDbType.NVarChar).Value = str_horario
                .Parameters.Add("@email", SqlDbType.NVarChar).Value = str_email
                .Parameters.Add("@web", SqlDbType.NVarChar).Value = str_web

                .Parameters.Add("@fiscal_razonsocial", SqlDbType.NVarChar).Value = str_fiscal_razonsocial
                .Parameters.Add("@fiscal_idcondicioniva", SqlDbType.Int).Value = int_fiscal_idcondicioniva
                .Parameters.Add("@fiscal_idsiglafiscal", SqlDbType.Int).Value = int_fiscal_idsiglafiscal
                .Parameters.Add("@fiscal_numerofiscal", SqlDbType.NVarChar).Value = str_fiscal_numerofiscal
                .Parameters.Add("@fiscal_impresiontipo", SqlDbType.Int).Value = int_fiscal_impresiontipo
                .Parameters.Add("@fiscal_impresorafiscal_modelo", SqlDbType.NVarChar).Value = str_fiscal_impresorafiscal_modelo
                .Parameters.Add("@fiscal_impresorafiscal_puerto", SqlDbType.NVarChar).Value = str_fiscal_impresorafiscal_puerto
                .Parameters.Add("@fiscal_impresorafiscal_velocidad", SqlDbType.Int).Value = int_fiscal_impresorafiscal_velocidad

                .ExecuteNonQuery()
            End With
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Modificar el registro de config_empresa." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Function Buscar() As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            Buscar = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "config_empresa_Buscar"
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
                Buscar = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Buscar el registro de config_empresa." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj_config_empresaClon As New cls_config_empresa
        obj_config_empresaClon.str_razonsocial = Me.str_razonsocial
        obj_config_empresaClon.str_nombrefantasia = Me.str_nombrefantasia
        obj_config_empresaClon.str_domicilio = Me.str_domicilio
        obj_config_empresaClon.int_idprovincia = Me.int_idprovincia
        obj_config_empresaClon.int_idpais = Me.int_idpais
        obj_config_empresaClon.str_telefono = Me.str_telefono
        obj_config_empresaClon.str_fax = Me.str_fax
        obj_config_empresaClon.str_celular = Me.str_celular
        obj_config_empresaClon.str_logogrande = Me.str_logogrande
        obj_config_empresaClon.str_logochico = Me.str_logochico
        obj_config_empresaClon.str_horario = Me.str_horario
        obj_config_empresaClon.str_email = Me.str_email
        obj_config_empresaClon.str_web = Me.str_web
        obj_config_empresaClon.col_Items = Me.col_Items
        Return obj_config_empresaClon
    End Function

End Class
